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8 1 ~3ep-19 4 95:03:38 NICNF «SRC NF INTRPT 53351 . 

avi tus "DECnet Ethernet Configurator Module’ 
MODULE CNFINTRPT ( 

LANGUAGE ( b 15356) 

IDENT = ‘'v04-000 
! ) - 
leuateneeneeenenatenanenneenenenenteetenrentrecteernnnnntneennneneenennntees 
if 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
= ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'e INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


© 
® 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. . 
* 
te 
® 
® 
® 
® 
® 
® 
*® 
* 


S3S23z2 
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sss 


aD ad dd ad ad ot 
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'@ 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOviCE 

'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

i: CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

s pdnbeenadousneacebennneseeneunecennnyotenoenaenesneunenunetuentenetbennntee 
1 


pepe epee lo lolololelololololoelololo! 


te4 
} FACILITY: DECnet Configurator Module (NICONFIG) 


ABSTRACT: 


This module contains the routines for establishing, and breaking 
logical Links to NICONFIG. 


i 
i 
i 
i 
i 
: ENVIRONMENT: VAX/VMS Operating System 
: 
i 
} 


SPW 


SsSssssssssssss oOCoOooO DOCOCOOCOCOOCOCOCO 
Ssooooooeseess $4 ss 


AUTHOR: Bob Grosso, CREATION DATE: 13-Oct-1982 
! MODIFIED BY: 


v03-001 RPGO001 Bob Grosso 02-May-1983 
Ensure NICONFIG will die gracefully on Network Shutdown. 
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CNF INTRPT DECnet Ethernet Configurator Module 16-Sep-1984 02:03: AX-11 Bliss-32 V4.0-74 P 
v04-000 Definitions ° a 18-808-1 382 95:03:88 NICE. SROSENPENYRES 503551 ag! (25 
? 6 ZSBTTL ‘Definitions’ 
| 
§ ! INCLUDE FILES: 
g et 
$ 0 5 LIBRARY 'SYSSLIBRARY:STARLET'; ! VMS common definitions 
8 a3 LIBRARY ‘SHRLIBS$:NET'; ! Network definitions 
2 039 LIBRARY ‘SHRLIBS:NMALIBRY'; ! NICE Code definitions 
. i) REQUIRE 'LIBS:CNFDEF.R32'; 
64 1 ‘ REQUIRE ‘SRC$:CNFPREFIX.REQ'; 
65 50 
9 8 1s 
68 34 i BUILTIN functions 
ts TS bs 
71 2$ BUILTIN 
7 5 INSQUE, ' INSQUE instruction 
7 28 REMQUE ; ' REMQUE instruction 
fg gO | 
76 61 i Own storage 
nos 


OWN 
SI1_10SB8 : BBLOCK (8); 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


SN NNN NOAA O 


SSS ERs SSNS FANS SSSLS SS 


CNFSSOLICIT_INTERRUPT  : NOVALUE, ' Solicit work items 

NET_INTERRUPT : NOVALUE, ' Action routine to receive first SET command 
OPER_REQUEST_LINK : NOVALUE, ' Open incoming request logical Link 
CNFSTLOSE_REGUEST_LINK : NOVALUE, ' Close request logical Lin 

SHUTDOWN : NOVALUE, ! Shut down receiver proseren ty 
CNFSSOLICIT_REQUEST : NOVALUE, ! Perform a read on the logical Link 
REQUEST_RECEIVED : NOVALUE; ' Accept incoming request record 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
! Module CNFMAIN 
CNFSEXIT, ! Clean up and exit 


me a a ad ad a a td ed td dd = dd = ss = a 
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ere 


} scnornet Configurator Module 
tions 


TRACE 
LOG_DATA, 

CNFSGET-ZVM, 

CNFSFREE_VM, 


! Module CNFREQUES 


CNF SDISABLE_SURVEI 
CNFSPROCESS_REQUES 


! Module CNFWORKQ 


WKQSADD_WORK_ITEM, 
WKQSD0_QORK_ITEM; 


EXTERNAL LITERAL 


CNF$_MAILBOX, 
CNFS~CHAN, 
CNFS-LINK, 
CNFSC_MAXMBXMSG, 


CNFSC_SYNCH_EFN, 
CNFSC_ASYNCA_EFN; 


CNFSA_MBXMSG : VECTOR C,BYTE], 
: WORD ° 


CNF $W_NETCH 


GL_L : 
CNFS$GQ_CIRSURLST 


3 ¥ 
CNF$GQ_IRBLST : VECT 
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IESSor194s Q3:09:98 YANCY BLiSgGPGthsOn7ss., «Pee 3 
Log messages to log file 
Log re to log file 


zeroed virtual memory 
Free virtual memory 


: NOVALUE, ! Discontinue surveillance on specified circuit 
: NOVALUE, ! Parse and perform requested function 


Add work to work queue 
Add work to work queue 


Mailbox error 
Error assigning or deassigning channel 
Error on logical Link 


Maximum mailbox message size 
Synchronous event flag number 
Asynchronous event flag number 


Mailbox message buffer 

Channel opened to network 

Channel to mailbox : ; 
Boolean: mark if useful work is being accomplished 


32], Logging control mask 
R C2), List of circuit under surveillance 
; Listhead for incoming Links 
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rs ss 
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+ 
FUNCTIONAL DESCRIPTION: 


Issue an asynchronous Q]0 on the associated mailbox 

for the network channel in expectation of receiving 

requests for connects, or Shutdown notification. 

Called the first time from MAIN routine in user mode 

and subsequent times from NET_INTERRUPT to execute in AST mode. 


PUN AINA 


—OOONOUFE WOO 5 


OOCOCGCOOCOCOCCOCOOCOCOOCOOOCO oo 


IF NOT . STATUS 
SIGNAL (CNF$_MAILBOX, 0, .STATUS); 


RETURN; 
ND; ! End routine CNFSSOLICIT_INTERRUPT 


30 report an error 


1 
1 
1 
, } 
1: 
1! 
1: 
1} 
1} 
1} 
. 7 
1} 
1 ! FORMAL PARAMETERS: 
rk: : NONE 
rt} : IMPLICIT INPUTS: 
ré] | CNFSW_MBXCHAN Channel number for mailbox 
ff : } CNF SA_MBXMSG Buffer for mailbox msg 
0349 1°! IMPLICIT OUTPUTS: 
0350 1! NONE 
0351 1! 
O26 1 ! ROUTINE VALUE: 
O3ez : } COMPLETION CODES: 
8822 1! Errors are signalled 
0356 1! 
0357 1 ! SIDE EFFECTS: 
0358 1! NONE 
0359 1! 
0360 1 !-- 
836! 1 
366 BEGIN 
036 
0364 LOCAL 
8 23 STATUS; 
0867 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
Bee8 SDESCRIPTOR T'cnf$solicit_interrupt')); 
$59 STATUS = $Q]0 ( 
71 FUNC = I0$_READVBLK ' Request read on mailbox 
1 CHAN = .CNF$W_MBXCHAN, | Use assigned channel 
7 EFN = CNFSC_ASYNCH_EFN, ! Asynchronous Event flag number 
74 10SB = S!I_10SB, ' Interrupt request bloc 
75 ASTADR = RET_INTERRUPT, ! AST routine to execute on read completion 
7 P1 = CNFSA_MBXMSG, ! Buffer to contain mailbox message 
P2 = CNFSC_MAXMBXMSG); ! Size maximum on mailbox message 
7 
E 
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N SOLICIT. INTERRUPT Request network interru 1 ~Sep-19 4 95:05:35 NICNF..SRCJCNF INTRPT.B32; 1 ° (3) 
ZSBTTL ‘CNFSSOLICIT_INTERRUPT Request network interrupts for Connect requests and Shutdown ' 
GLOBAL ROUTINE CNFSSOLICIT_INTERRUPT: NOVALUE = 
+ 


° 
& 
. 
o 
° 
. 
. 
o 
. 
a 
. 
e 
. 
° 
. 
. 
. 
. 
. 
° 
. 
e 
© 
e 
. 
° 
- 
e 
. 
° 
2 
e 
. 
° 
© 
° 
. 
° 
. 
€ 
~ 
e 
. 
° 
. 
° 
. 
e 
7 
e 
. 
a 
a 
e 
. 
° 
. 
o 
. 
e 
. 
° 
a 
° 
. 
a 
oa 
~ 
o 
° 
* 
o 
e 
2 
e 
. 
o 
. 
o 
. 
o 
. 
e 
+ 
2 
o 
ca 
. 
e 
. 
e 
+ 
o 


« 
gurator Module Jo~se0 
Request network interru 14- 
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45 43 41 52 54 0003 P.AAB: 
a 33 P.AAA 
C F P.AAD: 
74 GE 69 SF 74 69 63 69 6 6 73 : 846 
74 70 Bade 
Anti 0098 P.AAC: 
00000000' 0002C 
00000 S$1_10SB: 
0000 te 
0000" CF 9F 00002 
0000" CF 9F 00006 
4 DD OOOOA 
0000G CF 3 FB 0000C 
7E 7C 00011 
7E 7C Bale 
saree 9469: BF 0 0001 
00006 cf F 00018 
€ 4 th 
444 CF fF 021 
0000' gf oF 025 
1 D .] 
7E 4444 F C 
00000000G 8F ODD 
000000006 99 6 : 
0D 43 
E D4 4 
00000000G BF ODD 044 


4 02:0 Liss-32 V 

1 93:03:85 ReSene int 
-TITLE CNFEINTRPT DECnet Ethernet Configurator Module 
“IDENT \V04-000\ ’ : 
-PSECT S$PLITS,NOWRT,NOEXE,2 

ASCII \TRACE\ : 

-BLKE 


AX-11 BL 
NICNF.SR 


4,0-74 
RPT .B32;1 


- LONG 
«ADDRESS 
ASCII 


P.AAB 

\cnf$solicit_interrupt\ 

-BLKB 

- LONG 1 : 

-ADDRESS P.AAD : 

-PSECT S$OWNS,NOEXE,2 Ff 


-BLKB 8 


CN NF SLOG bata, CNFSGET_ZVM 
CNFSDISABLE_SURVEIL 
CNESPROCESS. oa 


tne TEEN 
ACMBXMSGT CNF $W_NETCHA 
XTRN (CN + “MBXCHAN, CNFS$E SURVEILLANCE _SET 
CNFSGC_LOGMASK, CHE $G0_¢ RLST 
CNF$GQ_IRBLST, SYS$QI 


SCODES ,NOWRT 2 
CNFSSOLICIT_INTERRUPT, Save nothing 
PUSHAB P.AAC 

PUSHAB AAA 

#3, CNFSTRACE 

cLRG -(§P) 


(SP) 
#CNESC_MAXMBXMSG 
CNF$A_ABXMSG 


NET_ INTERRUPT 
PUSHAB ae 


CNF$W_MBXCHAN, -(SP) 
rit te ASYNCH_EFN 

CALLS #i2, SYS$QI10 ~ 
B STAT 0 9 


Pete Se Se Se Se See Se Ge Se Se Se Se Se Se Se BeBe Be 


=(SP) 
#CNFS_MAILBOX 


CNF INTRPT 
v04-000 


; Routine Size: 
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000000006 00 03 FB 0004A CALLS #3, LIBSSIGNAL 
04 00051 18: RE ; 0384 


82 bytes, Routine Base: $CODE$S + 0000 
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net_interrupt Process Net interrupts for Shutd 14-Sep-1984 


71986 93:25:30 ENTCNF.SRCSENFINTAPT 03951 ead 


ZSBITL ‘net_interrupt Process Net interrupts for Shutdown or Connect Request’ 


++ 


1 ROUTINE NET_INTERRUPT : NOVALUE = 


This AST routine is teiied when the outstanding Q10 
on the associated mailbox completes. If the interrupt 
indicates a connect is pending, then the acceptance 
routine is added to the work queue. 


MESSAGE _TYPE = CNFSA_MBXMSG [0] : BYTE; ! First byte contains code for message type 
CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 

SDESCRIPTOR T'Net_interrupt')); 
! 
: Check message type. If connect request, then connect and wait 
for a set. Anything else is bad news. 
§ 


SELECTONEU -MESSAGE_TYPE OF 
CMSG$_NETSHUT): ! Network shutting down 


BEGIN 

WKQSADD_WORK_ITEM(SHUTDOWN) ; 

CNFSTRATE (DBGS$C_TRACE, SDESCRIPTOR(' TRACE"), 
SDESCRIPTOR ("Net_Interrupt - Network shutting down')); 


! Shut down receiver gracefully 


RETURN; ! Do not re-issue mailbox read 
END; 
CMSG$_CONNECT): ! Incoming connect request 
BEGIN 
LOCAL 
PTR,LEN, 
IRB: REF BBLOCK; ! Incoming Request Block 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
SDESCRIPTOR ('Net_Interrupt - Connect request received')); 


LENGTH; 


LEN = IRB 
Ae 7VM" (LEN, IRB); ' Allocate incoming request block 
IRB CIRB$SW_SIZE) = IRBSC_ ENGTH: i Set length of block 
PTR = 5 + .CNFSA_MBXMSG ]; ' Get index of start of ascic data 
ef CIRBSB_NCBLER) = .CNFSA XMSG [C.PTRI; ' Set_length of NCB 
CHSCOPY (.CNFSA_MBXMSG C.PTR), CNFSA MBXHSG C.PTR+1), 

Q. IRB$C_MAXNCBLEN, [RB CIRBST_NCB)); 
IRB ah BNR CIN = [R6 CIRB L_BNR_FLINKJ; ! Initialize List for Bufferred NICE Messages 
IRB CIRBSL_BNR_BLINK] = IRB PROSL_ONR_FLINK : 
INSQUE (.IRB, [CNFSGQ_IRBLST (11>; ' Insert into list 
WKQSADD_WORK_ITEM(OPEN_REQUEST_LINK,.IRB); ! Queue the connect accept 


CNI 
Vv0é 


71 


71 
GF 
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v04-000 net_interrupt Process Net interrupts for Shutd 12-868-1 388 95:05:85 NICNE. SRCTENFINTRPT .03951 
3; oF 4 END; 
; 260 108 
; 261 444 COTHERWISE): 
; °¢ 445 BEGIN 
; rr | CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE *** ERROR"), 
3 264 4 SDESCRIPTOR T'Net_interrupt - Unprocessed Interrupt')); 
; 265 ace END; 
3 28 44 
: 26 29 TES; 
> 268 451 
3 4 126 CNFSSOLICIT_INTERRUPT(); ! Issue another read on mailbox 
; 271 rey CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
3 f Bo 82 SDESCRIPTOR T'Net_Interrupt - Interrupt dispatched, another solicited’)); 
3; 274 0e89 RETURN; 
: 275 0458 1 END; ! Routine net_interrupt 


-PSECT S$PLITS,NOWRT,NOEXE ,2 
52 54 Q0030 P.AAF: .ASCII \TRACE\ 
-~BLKB 3 


«LONG 15 
-ADDRESS P.AAR 
P.AAT: .ASCII \Net_Interrupt - Unprocessed Interrupt\ 


NSNLOSO MOMNNS 


00035 
0005 00038 P.AAE: .LONG 5 
0000° Bobz5 ADDRESS P.AAF 
4E 00040 P.AAH: .ASCII \Net_Interrupt\ 
004D -BLKB 3 
000D 00050 P.AAG: .LONG 13 
0000" 00054 ADDRESS P.AAH 
54 00058 P.AAJ ASCII \TRACE\ 
005D -BLKB 3 
0005 00060 P.AAI: .LONG 5 
0000' 00064 ADDRESS P.AAJ 
rt oof P.AAL: .ASCII \Net_Interrupt - Network shutting down\ 
5 6E 00086 
0080 -BLKB 
00033 0090 P.AAK: . 
00000° 00094 ADDRESS P.AAL 
2 54 098 P.AAN: .ASCII \TRACE\ 
009D -BLKB 3 
$0003 QOAO P.AAM: .LONG 5 
0000° Boag ADDRESS P.AAN 
F ag P.AAP: .ASCII \Net_Interrupt - Connect request received\ 
b 38h 
08 DO P.AAO: .LONG 40 
° D4 ADDRESS P.AAP 
og P.AAR: .ASCII \TRACE *** ERROR\ 
BbE -BLKB 1 
Ff —8 P.AAQ 
3 6 
4 


F 
§ -BLKB 3 


a 
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999000 ; 118 P.AAS: .LONG 37 : : 
* 001 ADDRESS P.AAT : : 
45 43 41 4 00120 P.AAV: <ASCII \TRACE\ : ; 
1 -BLKB ‘ 
90000005, O01¢8 P.AAU: LONG : : 
% 70 75 72 7 P 4 7h 65 SE OO130 P.AAX: “ASCII ANet Interrupt = Interrupt dispatched, an\ : 
. . i. e nterru - interru spa ec, an é bd 
BO oS ff 88 if 16 ¢3 t3 i et 4 4 49 : 13 . ; Se ee ee ee 
64 65 74 69 63 : 6C éF $§ $5 ; 68 74 OF 154 ASCII \other solicited\ ; : 
90000037, 00168 P.AAW: LONG 55 ; 
0° 0016C -ADDRESS P.AAX : 
-PSECT S$CODE$,NOWRT,2 : 
O3FC 00000 NET_INTERRUPT: : 
WORD e R2, RS, R4,R5,R6,R7,RB,RI ; 0386 : 
59 0006 CF 9 0000 HOVAB  ENESTRAC : ; 
: 0006 CF 9E 0000 MOVAB RESSAGE, Tire. RB ; ; 
5 000" cf 9 0000¢ HOVAB ; : 
Se 08 C2 00011 SUBL i - 3 ; 
57 DD 00014 PUSHL ; 0402 : 
EB AY 9F 00016 PUSHAB ; 0401 ; 
91 dd 0001 PUSHL ; : 
69 FB 0001B CALLS CNFSTRACE : : 
20 68 9A OOOIE MOV ZBL i ae TYPE, RO : 0408 : 
30 91 00081 CMPB : 0411 ; 
11 12 00024 BNEQ 1 : : 
0000v CF 9F 00026 PUSHAB SHUTDOWN ; 0414 ; 
00006 CF 01 FB 0002A CALLS #1, WKQSADD_WORK_ITEM : : 
40 A? QF 0002F PUSHAB P.AAK ; 0416 ; 
10 A? 9F 000 PUSHAB P.AAI : 0415 : 
7B 11 000 BRB 4$ ; : 
32 50 91 00037 18: CMPB sO, #50 ; 0421 : 
5¢ 12 O003A BNEQ = 2$ ; : 
0089 C7 BF 005¢ PUSHAB P.AAO ; 0428 : 
Ay 9F 0004 PUSHAB P.AAM : 0427 : 
01 DD 0004 PUSHL #1 3 : 
69 3 FB 0004 ALLS #3, CNFSTRACE : : 
06 AE O15F BF 3C 00048 MOVZWL #351, LEN ; 0430 : 
E BD 0004 PUSHL ; 0431 : 
08 AE 9F 0005 PUSHAB LEN ; : 
00006 ¢F 02 FB 0005 CALLS #2, CNFSGET_ZVM ; ; 
6 GE D0 00 MOVL IRB, R6 ; 0432 : 
08 A 0157 BF BO 00058 MOVW © #35 ; : 
2 06 AB 9A 00061 ROVZBL CFSA Bae), PTR ; 0433 : 
24 68 i 68 HOVE ENE SA MBXMSGEPTR]. 36(R6) ; a3 : 
00460 8 00 01 A840 ; 31 C tt moves” Ri streak MAXMSc+{CPTRI, WO, #64, 37{R6) 0436 : 
A6 f2 AS 9€ Ooore MOVAB —30(R6), 20(R6) : 0437 
18 Ab 14 46 9E 00081 MOVAB (R6) : 0438 
00006 oF 66 OE INSQUE (R6), SchrSca. IRBLST+4 : 0439 


CNF INTRPT 
v04-000 


6 ) 

aoons cr 10" : h 
tt 

69 : FB 

FFOS =F ° FB 
3 C? OF 

7 OF 

ty DD 

69 3 FB 

04 


; Routine Size: 184 bytes, Routine Base: S$ CODES + 0052 


ast terrae P Feszal Gok tacernate for Shutd if-te =3e8= 1382 93: 93: § 


PUSHL 
PUSHAB 


NICWE SRCTENEINYRET 204551 


IRB 
sag REQUEST LINK 
» WKQSADD_QORK_ITEM 


P.AAS 
P.AAQ 
#i 


aa° CNFSTRACE 
o hae CNFSSOLICIT_INTERRUPT 
P, AAU 


#i 
*, CNF STRACE 


Page 10 
. (4) 


0441 


65 


; 


D 10 = | 


CNF INTRPT DECnet Ethernet Configurator Module 16-Sep-1984 AX~11 Bliss-32 V4.0-74 Page 11 
v04-000 open_request_| Cink ° 12: abep- 138e 95: 93: § AT CNE SACTENEINYREY 209551 . <3} 
a 459 1 XSBTTL Ht peque est_link 
: f : } ROUTINE of N_REQUEST “CINK (IRB) : NOVALUE = 
; 462 1 !=<- 
; 1 465 1! 
3 § 464 1! Open the Logteat Link for incoming request records. 
; ret : } Executed off the work queue. 
; 5 rh : Inputs: 
; 46 irb = Address of incoming request block 
5 al ; Outputs: 
: 291 473 11 routine = True if Link established, false if not 
: 3 474 1 !e=- 
3; 2 475 1 
> 294 47 BEGIN 
; 295 47 
; 38 478 MAP ; 
; 29 0479 IRB: REF BBLOCK; ! Address of request block . 
; 298 0480 : 
; 299 481 LOCAL : 
; 300 rt] STATUS, : 
; 301 4 ‘ : 
5 4 Bese NCB_DESC: VECTOR (2); ! Descriptor of NCB : 
: 04 bebe CNFSTRACE (DBGSC TRACE, SDESCRIPTOR(' reas ), : 
; 305 0487 SDESCRIPTOR (‘open_request_link')) 
; 306 0488 
s wor Rees : 
; 308 490 : Setup NCB for connect accept 
Ho RBG 
; 311 049 NCB_D c £0 ‘t IRB _CI RBSB NCBLEN]; ' Get Length of requestor ncb 
; \¢ 0494 NCB_ Dest = IRB CIRB$T_ACBI; ! and address of ncb 
: Ha 196 5: 
: 16 4 Get copy of NCB up to slash to enable its use in error reporting 
: 31 0499 2_ 
H 13 380 PTR = CHSFIND_CH (.IRB CIRBSB_NCBLEN), IRB CIRBST_NCB), ‘/'); 
: 1 308 IF NOT CHSFAIL (.PTR) ! If ending slash found, 
; § 2pe IRB CIRB$SB_NCBLEN) = .PTR - IRB CIRBST_NCB]; ! then truncate rest of junk 
: 324 5 
; 309 : Setup NCB for accept by zeroing optional data sent by requestor 
; 509 2 
; ; 319 (.PTR+#3) <0,8> = 0; ' Zero optional data | 
; P 18 STATUS = SASSIGN (DEVNAM = ZASCID ‘ _NET:’, ! Get channel for incoming Link | 
; 1 gi? CHAN = IRB CIRB$W_CRAN)); 
: ; : 18 IF NOT .STATUS ! If error assigning channel, | 
| 
| 


10 
SE es ey prone: mes HEREIN ABSRBAD WAT SIEM PES, 


v04 
5 1 
3 5 1 nee 
3 § 1 SIGNAL (CNFS$ 0, .STATUS); ! then report the error 
; 44 ENF CLOSE. REQUEST. -LINK(. IRB); ! and deallocate the storage 
; 5 1 ; 
: 341 P : STATUS = SO1OWCFUNC | = _10$ ACCESS ! Accept the logical Link 
; 4g P 3 4 IRB CIRB$w_CHANI, 
; 34 P 0525 ERNY = “CHES SYNCH_EFN 
; 4 P 05 § 10SB = IRB Tire$w-10s6), ' Address of I/0 status block 
; $2 é = NCB_DESC); ! Address of network control block 
3 43 B2 : a . STATUS ! If successfully submitted, 
3 rt 531 STATUS = .IRB CIRB$W_10SB); ! then pick up Q10 final status 
: 351 3 ‘ IF NOT .STATUS ! If error starting up Link 
; 26 534 THEN 
i 535 GIN 
; 354 5 § SIGNAL (CNF K, 0, .STA TVS): ! then report the error 
; 3 : tee REcueSt T_LINK(. IRB); ! and deallocate the storage 
; 39 539 ; 
i 38 2) 
; : B2e§ CNFSSOLICIT_REQUEST (.IRB); ! Issue a Q10 for an incoming request record 
; 2 0544 1 END; ! End routine open_request_link 
-PSECT SPLITS,NOWRT,NOEXE,2 
45 43 41 52 54 00170 P.AAZ: .ASCII \TRACE\ 
00175 -BLKB 3 
00000005 00178 P.AAY: .LONG 5 
Ooygooy” 017C -ADDRESS P.AAZ 
SF 74 73 65 75 71 65 72 SF 6E 65 H+ of Hy P.ABB: .ASCII \open_request_link\ 
0191 -BLKB 3 
8 0194 P.ABA: .LONG | oe 
00000000' 00198 143) ha 
00 00 00 3A 54 45 wE 5SF Bie P.ABD: .ASCII \ Msi :\<0><0><0> 
4348 5 1A4 P.ABC: .LONG 
0000000" 001A8 ONES. P. te 


.EXTRN SYSSASSIGN, SYS$Q10W 
.PSECT $CODE$,NOWRT,2 
000C 00000 OPEN_REQUEST LINK: 
WOR Save R2,R3 
5E 0 SUBL SP 
9000" HH PUSHAB P.ABA 
9 9 PUSHAB BC AAY 


PUSHL 


F 10 
CNF INTRPT DECnet Ethernet Configurator Module 16-Sep-1984 02:03: AX-11 Bliss-32 V4.0-74 Page A 
¥04=000 open request. Lim” 1e-38b213ke 93:25:88 ENTewe Shcdentanynes 1049, a 
00006 fF 03 FB QO00F CALLS #3, CNESTRACE ; | : 
2 4 A p 14 MOVL R $ 0493 : 
6E 4 A 18 CVTBL g(h ), NCB_DESC ; : 
* OM RARE RENAE Yass” mga 885) 
25 A2 : F 3A 5 Locc. #47, Rb, 37(R2) : : 
¢ 2 A BNEQ 1$ : ‘ 
D4 C CLRL RI : ; 
1 D3 1$: TSTL PTR ; 0502 : 
9 1 BEQL $$ 3 ° 
50 25 Ag : MOV (R2) RQ ; 0504 : 
24 A2 1 5 SUBB R0 PTR, 36(R2) : : 
03 Ail 94 00038 2s: CLRB (PTR) ; 0519 : 
re C 0 CLRQ = =( SP) : 051 : 
OA Ao OF 0 4 PUSHAB 10(R2) : : 
0000" CF 9F 0004 PUSHAB P.ABC : : 
000000006 99 4 FB 0004 CALLS #4, SYSSASSIGN ; : 
D O04 MOVL RO, STATUS : ; 
0c E8 0005 BLBS STATUS, 3$ : 0515 ; 
DD 00054 PUSHL STATUS : 0518 : 
7E D4 0096 CLRL = = (SP) : ; 
000000006 8F DD 0005 PUSHL  #CNF$_CHAN : : 
8 11 0058 BRB 5$ F : 
E 7C 00060 3$: CLRQ -(SP) ; 0527 ; 
7E 7C 00062 CLRQ = = (SP) ; : 
10 AE 9F 00064 PUSHAB NCB_DESC ; : 
7E 7C 00067 CLRQ = = (SP) ; : 
7E D4 00069 CLRL = = (SP) ; : 
0c Ad 9F 00068 PUSHAB Vecre) ; : 
3 pp O06E PUSHL #50 ; : 
7E 0A A2 32 000 CVTWL =: 10(R2),_ =(SP) ; : 
000000006 8F DD 00074 PUSHL  #CNFSC_SYNCH_EFN : : 
000000006 99 O¢ FB 007A CALLS #12, SYS$QI00 ; : 
5 g DO 00081 MOVL RO, STATUS ; : 
07 5 59 0084 BLBC STATUS, 4$ ; 0529 : 
3 oc A 2 0087 CVTWL  12(R2). STATUS ; 0531 : 
19 53 €8 00088 BLBS STATUS, 6$ ; 0533 : 
3 DD OOO8E 4$: PUSHL STATUS ; 0536 : 
E D4 000 CLRL = = (SP) : : 
000000006 8F DD 0009 PUSHL acNFS LINK ; : 
000000006 00 3 FB 00098 5$: CALLS #3, LIBSSIGNAL ; ; 
DD 0009F PUSHL R2 : 0537 : 
0000v CF 01 FB OOOA1 CALLS #1, CNFSCLOSE_REQUEST_LINK ; ; 
04 DOAG ET ; 0535 : 
52 DD OOOA? 68: PUSHL R2 : 0542 ; 
0000v CF 01 FB 000A9 CALLS #1, CNFSSOLICIT_REQUEST ; : 
04 OOOAE RET ; 0544 : 
; Routine Size: 175 bytes, Routine Base: CODES + O10A : 


ght age oe ere ae gee eee 


10 
CNF INTRPT DECnet Ethernet font igurator Module 18-Sep-1984 95 03:88 AX-11 OL igen va 0-238 Page 14 
v04-000 CNFSCLOSE_REQUEST_LIN 14-Sep-1984 249: NICNF ..SRCJCNF INTRPT.B32;1 (6) 
; 45 1 ZSBTTL ‘CNFSCLOSE_REQUEST_LINK' 
3 5 re ; GLOBAL ROUTINE CNFSCLOSE_REQUEST_LINK (IRB): NOVALUE = 
i ie Bio 
; 5 ? } ; Close the logical Link for incoming request records. 
: 371 ii Inputs: 
; Ie 1! 
3 ie 222 } } irb = Address of incoming request block 
: 375 1 | Outputs: 
3; (ST 228 1! —s 
3 f 228 : } None 
: 379 560 1! value: 
; 380 561 1! Signal any errors 
a ae 
: BS 0564 2 BEGIN 
i 38s 0866 3 MAP 
; "3 £544 IRB: REF BBLOCK; ! Address of incoming request channel 
: 388 0569 2 LOCAL 
3 89 0570 FREE_BNR : REF BBLOCK, 
; 390 0571 LENGTH, 
3 4 O276 STATUS; 
: 38 0574 CNFSTRACE (DBG$C_TRACE SDESCRIPTOR(* TRACE"), 
; % 0979 SDESCRIPTOR ("CNFSCLOSE_REQUEST_LINK')); 
; 396 iad IF .IRB CIRBSW_CHAN] NEQ 0 ! If channel was assigned, 
BBR cc 
; ipp Bago STATUS = SDASSGN (CHAN = .IRB CIRBSW_CHAN]); ! Deassign network channel 
: 401 O88 IF NOT .STATUS ! If error detected, 
: 40 584 SIGNAL (CNFS$_CHAN, 0, .STATUS); ! then report error 
3 rte B28? END; 
; $38 a REMQUE (.IRB, STATUS); ! Remove from Linked List 
: 408 38 
3 ret 359 : If there are Bufferred NICE responses in the IRB, deallocate them. 
> 411 298 FREE BNR = .IRB CIRBSL_BNR FLINKI; 
; ig 59 WHILE .FREE_BNR NEQ IRB CIRB$L_BNR_FLINK] DO 
¢ ala 296 RENQUE (.FREE_BNR, STATUS); 
> 415 596 EXECUTE (CNFSFREE_VM (FREE_BNR CBNRSW_LENGTH], FREE_BNR CBNRSL_ADDRESS)) ); 
i 416 59 EXECUTE CCNF SF REE VM_(ZREF (BNRSC LENGTH), FREE_BNRY ); 
; re 4 haa = .IRB CIRBSL_BNR_FLINK); 
; 419 00 LENGTH = MH CIRB$SW_SIZE]; ' Get size of block 
3 420 01 2 EXECUTE (CNFSFREE_VM~ (LENGTH, IRB)); i Deallocate storage | 
| 


<- 
oz 
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CNF INTRPT DECnet Ethernet Configurator Module 16-Sep-1984 02:03: AX-11 Bliss-32 V4.0-74 
v04-000 CNFSCLOSE_REQUES OL INE ~ 1e=ge0-}38e 95:05:88 ANCHE ERCTENE INYREY. 03551 


: 0 608 f eno; 


! End routine cnf$close_request_link 


«PSECT SPLITS,NOWRT,NOEXE,2 


45 43 41 52 54 tac P.ABF: ASCII \TRACE\ 
99000005 1B4 P.ABE: <LONG 
00000" 00188 -ADDRESS P.ABF 
45 55 51 45 52 SF 45 53 4F 4C 43 24 46 af 4 1BC P.ABH: <ASCII \CNFSCLOSE_REQUEST_LINK\ 
4B 4E 49 GC SF 54 5 iC ang 
90000016 01D4 P.ABG: .LONG 22 
0000000' 00108 ;ADDRESS P.ABH 
.EXTRN SYSSDASSGN 
.PSECT SCODE$,NOWRT,2 
001C 000 .ENTRY CNFSCLOSE_REQUEST_LINK, Save R2,R3,R4 
54 00006 CF i 000 HOVAB CNFSFREE_UM, R4& 
SE 6c C2 0000 SUBL2 #12, SP 
0000' CF SF OO00A PUSHAB P.ABG 
0000" CF 9F OO0E PUSHAB P.ABE 
91 DD 0001 PUSHL #1 
00006 CF 3 FB 00014 CALLS #3, CNFSTRACE 
52 04 ac D 90019 MOVL IRB, R2 
0A A2 B5 00010 TSTW =: 10(R2) 
22 13 00020 EQL=Séséd1SS 
7E 0A A2 32 00022 CVTWL  10(R2), =(SP) 
000000006 09 gi FB 0026 CALLS #1, SYSSDASSGN 
5 D 00 D OVL RO, STATUS 
11 3 E8 000 9 STATUS, 1$ 
DD 000 PUSHL STATUS 
7E 04 00035 LRL. = (SP) 
000000066 BF DD 00037 PUSHL WCNFS CHAN 
000000006 99 03 FB 00 D ALLS #3, LIBSSIGNAL 
5 62 OF 00044 1$ REMQUE (R2), STATUS 
50 04 aC D0 0047 OVL IRB R 
04 AE 14 AO D 004 OVL 9<RO) FREE_BNR 
52 04 AC 14 C1 0005 ADDL3 #20, IRB, R 
52 04 AE D4 a8 2$: CMPL FREE_BNR, R 
53 04 BE OF 00 B REMQUE @FREE_BNR, STATUS 
7E 04 AE ¢ C1 0 5F ADDL3 #12, FREE BNR, -(SP) 
7E 08 AE 08 C1 00064 ADDL ag, FREE SNR, -(SP) 
4 9 FB 69 CALLS #2. CNFSFREE. 
D 6C BLBC STATUS, 4$ 
04 Ar F of PUSHAB FREE _BNR 
04 AE 1 po MOVL #16, 74(SP) 
04 AE 9F 0007 PUSHAB 4(SP) 
64 Q FB 7 CALLS #2, CNFSFREE_VM 
1D E 7C BLBC. STATUS 
52 04 AC 14 €1 0007F ADDL3 #20 IRB, R2 
4 AE 62 60 00084 MOVL (R25, FREE_BNR 
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DECnet Ethernet Configurator Module 18-50 $ep-1984 02:0 AX-11 Bliss-32 V4.0-74 Page 17 
shutdow ° ets 7 96: 93: 8 NICNF. SRCJON Putney 03551 . } 
1 ZSBTTL ‘shutdown’ 
5 ! ROUTINE SHUTDOWN: NOVALUE = 
leee 
608 1i 
6 1! This routine is called when the network is abutting down t 
319 } } gracefully close all incoming Links so that NICONFIG goes quay quietly. 
1 1 Inputs: 
615 1! 
61 1! None 
Hae 
1 1 | Outputs: 
1 1! None 
19 1! 
y : Effect: 
6 ¢ 1! Disabling all surveillance will cause NICONFIG to terminate 
oe 5 BEGIN 
06 $ LOCAL 
0628 PTR: REF BBLOCK, ' Pointer to irb block 
06 4 NEXT_PTR; 
be 1 PTR = .CNF$GQ_IRBLST ' Start at first Link context block 
06 é WHILE . “PTR NEG CNFSGO_ IRBLST i Until end of Linked list, 
0634 BEGIN 
0635 NEXT_PTR = .PTR CIRBSL_LIN x33 
36 : CNFSTLOSE_REQUEST LINKT.PTR); ' Abort the incoming Link 
3 PTR = .NERT_PTR; ' and Link to next in chain 
ste: END; 
0640 PTR = .CNF$GQ_CIRSURLST; ' Start at first circuit block 
aoe WHILE . -PTR NEG CNF$GO_CIRSURLST i Until end of linked List, 
BEGIN 
4 gt SOISARLE SURVEIL (.PTR); ' and delete the circuit 
0645 PTR CCIRSL_LINKI; ' Link to next one 
Bo08 D: 
Oss CNFS$B_SURVEILLANCE_SET = FALSE; ! So it will die quietly 
0650 1 END; ' End routine shutdown 


000C 00000 SHUTDOWN: 


“WORD ; 0605 

5 90006 CF D0 BP 83009 MOVL ear $ca 2 FRaLST. PTR : 0631 
: Vv N L H 

F 1$ MOVAB ¢ F$GQ-IRBLST, RO 0632 
2 000¢ CMPL PTR, RO ; 


K 10 
CNFINTRPT DECnet Ethernet Configurator Module 16-Sep- :0 AXa11 Blissc32 V4. 0-74 Page c 
v04=000 shutdown ° 12: ~ten- 198 96: 93: § NICNE. SRCTENF INTR “B33; 1 ve v 
sy F BEQL «ss 2S ; 
53 3 of MOVL (PTR), NEXT_PTR ; 
D 14 PUSHL PTR ; 
FFGB cf F 16 CALLS #1, CNFSCLOSE_REQUEST_LINK : 
2 2 p 18 nov. ON KT_PTR, PTR F 
00006 CF p 3 MOVL CE $GQ_CIRSURLST, PTR : 
G CF & MOV CNFS$GQ~CIRSURLST, RO : 
2 p A CMPL PTR, RO : 
D BEQL «s4$ : 
DD fF PUSHL PTR : 
00006 fF F 1 CALLS #1, CNFSDISABLE_SURVEIL : 
MOVL Pfr), PTR P 
2 f 
EA 1 BRB $ : 
00006 CF 04 00038 4$: CLRL - CNF$B_SURVEILLANCE_SET : 
04 0005F RET : 


; Routine Size: 64 bytes, Routine Base: S$CODE$S + 0256 
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CNF INTRPT DECnet Ethernet Configurator Module 1b-Se -1984 :03: AX-11 Bliss-32 V4.0-74 P 19 | C 
¥04=000 CNFSSOLICIT ReauesT. © eager BRe 98:08: 8g HAN? Ot ise ee Rey og. 1 a9 8) V 
ZSBTTL ‘CNFSSOLICIT_ REQUEST’ 
GLOBAL ROUTINE CNFSSOLICIT_REQUEST (irb): NOVALUE = 


This routine is_ called to obtain requests from the incoming 
logical Link. Each — ye request *s immediately queued 
€ 


WO OONOUSWN— 5 


! 

478 6 : 
479 ! to the disposal queue for t eporopr iets action. 
ret 02 It is first called directly by OPEN_REQUEST_LINK which is executing 
re bee by the AST routine, REQUEST_RECEIVED. 
4 bee ! Inputs: 
485 664 ! 
$38 et irb = Address of incoming request block 
488 O66? ! Outputs: 
489 066 ! 
490 0 : None 
491 0670 leon 
49 0671 

7 

4 
496 0675 IRB: REF BBLOCK; ! Address of incoming request block 
497 pers 
498 44 LOCAL 

STATUS; 

500 067 
501 0680 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
208 ved SDESCRIPTOR ('cnf$solicit_request')); 
504 068 STATUS = SQIO(FUNC = IOS_READVBLK, ! Get request from incoming Link 
505 0684 CHAN = .IRB CIRBSW_CHAN], 
one 0685 EFN = CNFSC_ASYNCH_EFN 
50 10SB = IRB CIRB$W TOSBI,! Address of 1/0 status block 


ASTADR = REQUEST_RECEIVED,! Address of completion routine 
! Giving irb as routine parameter 

’ ! Address of request buffer 

P2 = IRBSC_MAXROSTLEN); ! Length of request buffer 


If NOT .STATUS ! If unsuccessful 
THEN 


vuvvUUU 
co 
io 


BEGIN ' Don't signal a fatal error just because 
IF (.STATUS NEQ SS$_LINKABORT) AND ! the partner went away. 
(.STATUS NEQ SS$_LINKEXIT) 


EN 

SIGNAL (CNFS_LINK, 0, .STATUS); ! then report error 
WKQSADD_WORK_ITEM( CNFSCLOSE_REQUEST_LINK, .IRB); 
CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(*TRACE'), 
ene SDESCRIPTOR (*cnf$solicit_request %XCNFSCLOSE_REQUEST_LINK")); 


END; ! End routine cnf$solicit_request 


Be Oe Se Ge te Be Se Se Se Se Se FH Se FH Se Se Se Se Ge Be Fe Se FH Se Ge Fe Sse Ge Ge oe Se Se Se Ge Se Ge Se Se Ge Se Ge Ge Se Ge Se Se Se Ge Se Se Ge Se ee tease 
3 
~“ 


DDO 
n> 4 
tates 
AN 
wr 
PIP WAIN NINE IIOP PPOPONONONONOPOPOPONONUNONUNPUNIPP = 2 es 
= ow . memes 
m 
uv oO 
— 
z 


ss 
$2 


PUPP PVPSTAPI APSA A MINIUTUIUTU 
RRM 4 3 oe 


| 
off the work queue, end thereafter calls are placed on the work queue 
| 


CNF INTRPT DECnet Ethernet 
v04-000 CNESSOL tit 


Configurator Module 16-Sep- AX-11 Bliss-32 V4.0-7 P 0 
REQUEST . 14- ~hep= 138 95: 93: § NICHE eR RCIEN FINY RPT. b3 31 pe BS 
-PSECT S$PLITS$,NOWRT,NOEXE,2 


45 43 41 52 54 P.ABJ: tt \TRACE\ $ 


90990005, 

71 65 72 SF 74 69 63 69 6C 6F 73 $e $6 of e3 EE 
: 

ap 


«LONG $ 
eADDRESS P.ABJ : 
P.ABL: .ASCII \cnf$solicit_request\ : 


-BLKB 1 
N 
45 43 41 


«LONG 
eADDRESS P.ABN 
71 65 72 SF 74 69 P.ABP: .ASCII \cnf$solicit_request %2CNFSCLOSE_REQUEST\ 


4F 4C 43 26 46 4E 


Ws Or 
WAG 
Meo 
VIinnw 
VIVO 
Vivir 
VINO 
-on 
ad 
mow 
euIin 
more 
UO 
worMWO 


ASCII \_LINK\ 
“BLKB 


ew 
w 


P.ABO: .LONG ; 
-ADDRESS P.ABP ; 


-PSECT S$CODES,NOWRT,2 
-ENTRY at aaa REQUEST, Save R2 
PUSHAB P.ABI 


wi 
CALLS #3, CNFSTRACE 
CLRO 0. = ( §P) 


¢ -(SP) 

MOVZBL #250, -(SP) 

PUSHAB 101(R2) 

PUSHAB REQUEST RECEIVED 
(Ro) 

#49 

CVTWL © 10(R2), -(SP) 

PUSH ria sents ASYNCH, EFN 

BLBS STATUS, —" > 069 


CMPL STATUS, #8420 ; 069 
BEQL 1$ 
0696 


0698 


0004 


Sue 
v 
Cc 
nw 
= 
& 


0000G CF 


3 32OO 


Sete Se Se Se Se Se Ge Se Se Se Se Se Se Sse tes 


OA 
000000006 


COOCOOCooCoCoOooooooooooo 
COOCOSOSSOCSCOOSCOOCOooooo 


000000006 30 
000020E4 
000020F4 8F 


Sz 


VIN MOA MOUIMND OPMOS OVI & 
v 
Cc 
“ 
x 
- 


oOo 
PISITIN 


SF 
oO 
> 
- 
- 
“ 


000000006 NFS_LINK 


CALLS . LTBSSIGNAL 


PUSHAB CNFSCLOSE_REQUEST_LINK 
#2, WKQSADD_WORK_TTEM 


000000006 00 0700 


NOVO "OTOS $9 -9OMTIWI OOT OF OVS OO 
Br 9S FOW "WW" DWDONWVI BO NOPOOWO™™ 
SOOOCOCGCOOSOOSOOOOOOCOOOSOOOOOOooOSooOSoO 


—] 
SOON NM? VINOD FPWPOWIPY PONNOOOO 
MAIWFAMO "OF OOM MR MW MINION TMMW— Tn 


ooooo 


FEBB 
0000G CF 


voe-000 CNESSOLTCIT REGuEST sureto” Module 1$-ep-1 964 93:23:88 EATCAE SAiSEnPEwtne 043, 1 Page §) 
ee : 88 

00006 CF + PB So0s CALLS A CNFSTRACE ; 
04 7C 28: RET ; 0705 


; Routine Size: 125 bytes, Routine Base: SCODES + 0296 
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DECnet Ethernet Configurator Module 1b-5e -1984 02:03: AX-11 Bliss-32 V4.0-7 P 
request _received = 1 3007138 93:03:88 WNT CNE. SRCTENFIN ee es (3 
7 1 ZSBTTL "fequest received" 
ROUTINE REQUEST_RECEIVED (irb): NOVALUE = 


z 
- 
— 
35 
—_ 
= 
wv 
—~ 


This AST routine is ca 
in over the logical Li 
work queue. 


Lled when a new request has come 
nk. The request is queued to the 


Inputs: 
irb = Address of incoming request block 
Outputs: 


i 
i 
i 
' 
1 
i 
' 
i 
i 
i 
None 


BEGIN 


IRB: REF BBLOCK; ! Address of incoming request block 


ceca | (DBGS$C TRACE, SDESCRIPTOR( TRACE"), 
DESCRIPTOR ('request_received')); 


ir wet -IRB CIRB$W_10S8) ! If error from QI10, 
BEGIN 
IF (, IRB CIRB$W_I10SB) NEQ SS$_LINKABORT) AND 

(.IRB CIRB$O_10S8] NEQ SS$_LINKEXIT) 


SIGNAL (CNFS_LINK, 0, .IRB CIRBS$W_I0SB)); ! then report the error 
ME BSADO WORK ITER CNFSCLOSE_REQUEST_CINK, . IRB); ! close the Link until re-established 


SD i i de Se te ee ie Sn in Se ee ee te ee ie ee ee 


FUN $$ OOONA NESW 0 ODBNOAUES WN SOOO NOUS 


Log the contents of the incoming message 


74 BEGIN 
2 LOCAL DATA_DSC : BBLOCK [DSC$C_S_BLNI; 
74 DATA_DSC = 0; 
750 3 DATATDSC Fostsu LENGTH) =_-1RB CIRBSY_ 105813; 
DATATDSC [DSCSA-POINTER] = IRB [IRBST REQUEST; 
CNFSCOG_DATA (DBGSC_NICE, SDESCRIPTORT'NICE received'),0, DATA_DSC); 


PN BP A A ee a RH ey ee en ae tal Sl 


7 UROSARS YORK ITER (CNFSPROCESS_REQUEST, ! Queue request 


Be Se Se Se Se Ge Se Se Se Fe Ge Se Ge Se Se Ge Ge Se ee Ge FH Se Ge Se Se Se Se Se Se Se Ge FH Fe Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge SH Se Se ee Se ee ez 
rab 4b 4h 4h 4b 4h db Ab Ab ah Al 
MEN 
pa a 
SRLS 
wu 
PROP PNIPI WINWOOD = 
Taal er 


SAN 


vw 


ONAUES wt 


END; ! End routine request_received 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


65 76 69 65 


; Routine Size: 


DECnet Ethernet Configurator Module 15-500-1 
request_received 14-Sep-1 
45 43 41 52 54 f : P.ABR: 
05 P. ABQ: 
63 65 72 SF 74 73 65 75 a. é P.ABT: 
20 P.ABS: 

76 69 65 63 65 72 20 45 30398000 3 


gooneann 90588 


0004 00000 REQUEST_RECEIVED: 
. WORD 


SE 08 ¢2 0000 
0000" CF 9F 0000 
0000" CF 9F 00009 
1 Dd 00000 
00006 ¢F 3 FB 0000 
2 04 AC dO 00014 
28 C Ad €8 00018 
2064 SF € Ad 81 O00IC 
1B 13 00022 
20F4 BF 0c A2 Bi 00054 
1$ 13 90024 
7E oc A232: 0009C 
7E d& 000 
000000006 8F DD 000 
000000006 00 0$ FB 000 
52D 0003 18: 
FE61 «CE OOF 00041 
30 11 00045 
6E 0 As BS bonds oe 
04 AE gE OAS Se O9e0 
E Dd 0005 
E D4 00054 
0000" CF 9F 00056 
E D4 0005A 
00006 CF 04 FB 9005¢ 
2 0 00061 
0000 CF 9F 00063 
00006 CF 2 FB 00067 38: 
04 0006C 


109 bytes, Routine Base: S$CODE$ + 0313 


Be 93:25:35 


e P. ABV: 
P.ABU: 


AX-11 Oh igen Vase 24s 
NICNF.SRCJCNF INTRPT.B32;1 


ASCII 
BLKB 


Se 

- LONG 

-ADDRESS P.ABR 

ASCII \request_received\ 
«LONG 16 

-ADDRESS P.ABT 

ASCII \NICE received\ 
:LON 


«LO 3 
«ADDRESS P.ABV 


-PSECT S$CODES,NOWRT,2 


save R2 

UBL2 #8, SP 

PUSHAB P.ABS 

PUSHAB P.ABQ 

PUSHL a 

CALLS #3, CNFSTRACE 

OVL 6, R2 

BLBS 12(R2) 2$ 

CMPW =: 12(R2). #8420 

BEQL =sés«s18 

CMPW =s-:12(R2), #8436 

BEQL «=s«1$ 

CVTWL 12(R2), -(SP) 

CLRL. =(SP) 

PUSHL aCNrs INK 

CALLS #3, LIBSSIGNAL 
PUSHL R2 

PUSHAB CNFSCLOSE_REQUEST_LINK 
CLRL DATA_DSC 

MOVW 14(R2), DATA_DSC 
MOVAB 101(R25, DATA_DSC+4 
PUSHL SP 

CLRL = = (SP) 

PUSHAB P.ABU 

CLRL = = (SP) 

CALLS #4, CNFSLOG_DATA 
PUSHL 

PUSHAB CNFSPROCESS_REQUEST 
CALLS #2, WKQSADD-WORK_ITEM 


D 11 
CNF INTRPT DECnet Ethernet Configurator Module 16-Sep-1984 02:03: AX-11 Bliss-32 V a0-28 Pp 4 
v04-000 request _received ° ae ae 95:03:38 NICNF.S BRCleN tNFINTR PT.832;1 oe 48) 
! 


: 388 780 0 ELuDon 


! End of module CNFINTRPT 


-EXTRN LIBSSIGNAL 


: PSECT SUMMARY 
: Name Bytes Attributes 
> SOWNS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 656 NOVEC, NOWRT. RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 896 NOVEC,NOWRT, RD » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Pe 2 ae ee a ere wrace SyGROl Gg eoecoeses Pages Processing 
; File Total Loaded Percent Mapped Time 
; $255$DUA g: SYSLIBISTARLET 132:1 9776 16 0 581 00:01.0 
; _$255$DUA28:(SHRLIBINET.L32;1 ut) 0 63 00:00.9 
; _$255$DUA28: CSHRLIBINMALIBRY.L32;1 87 0 47 00:00.8 
F COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CNFINTRPT/OBJ=OBJ$:CNFINTRPT MSRCS$:CNFINTRPT/UPDATE=(ENHS: CNF INTRPT) 
; Size: 896 08°18.3 + 664 data bytes 
Run Time: 


Elapsed itoes ae 
202 


; Loess tPunia: 
; Memory Used: 116 pages 
; Compication Complete 


027 AH-BT13A-SE | " | NT CORPORATION 
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